#!/usr/bin/perl 

my.$previous = select(FH);
$| = 1;
select($previous);

#equal

select((select(FH), $| = 1)[0]);

#equal

use IO::Handle;
FH->autoflush(1);


